home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / WWWworkbenchIB.lha / WWWworkbench / W4parent.ibrx < prev    next >
Encoding:
Text File  |  1998-09-19  |  561 b   |  29 lines
  1. /* $Ver:W4new.ibrx 1.0
  2. *made by Andres Pääbo (c)1998:paabo@bancom.net
  3. */
  4. OPTIONS RESULTS
  5.  
  6. ADDRESS 'IBROWSE'
  7. 'QUERY TITLE'
  8.  
  9. currdir=result
  10. len=LENGTH(currdir)
  11. if RIGHT(currdir,1)='/' then currdir=LEFT(currdir,len-1)
  12. slashpos=LASTPOS('/',currdir)
  13. if slashpos=0 then slashpos=LASTPOS(':',currdir)
  14. parentdir=LEFT(currdir, slashpos)
  15.  
  16. call setclip('currdir',parentdir)
  17.  
  18.  
  19. call setclip('newdrawer',1)
  20. call setclip('refresh', 2) 
  21.  
  22.     'NEWWINDOW'
  23.     'GOTOURL file://localhost/RAM:W4/W4new.html'
  24. ADDRESS COMMAND  'Sys:RexxC/RX  WWWworkbench/WWWworkbench.ibrx'
  25.  
  26. EXIT 0
  27.  
  28.  
  29.